home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / docs / hyper / ED_Menu.lha / ed-menü / arexx / UL.ed < prev    next >
Encoding:
Text File  |  1993-04-11  |  312 b   |  18 lines
  1. /* UL.ed (Upper Line) */
  2. Address "Ed"
  3. 'RV/EdValues/'
  4. Zeile=EdValues.CURRENT
  5. Zeile=Delimit(Upper(Zeile))
  6. 'CS;EL'
  7. 'E'||Left(Zeile,1)||Zeile
  8. 'N'
  9. EXIT
  10. /* String begrenzen */
  11. Delimit: Procedure
  12.  Parse arg String
  13.  dc="/\!:|§$%&=+*^-<>`'~"
  14.  x0=Verify(dc,String)
  15.  c1=Substr(dc,x0,1)
  16.  String=c1||String||c1
  17. return String
  18.